(comment regpdl 10000. specpdl 2000. fxpdl 1000. flpdl 500.)
(progn
 (help)
 (fasload demon fas dsk (aid rpg))
 (fasload backq fas dsk (mac lsp))
 (fasload sharpm fas dsk (mac lsp))
 (setq em:no-init t)
 (fasload emaclsp fas dsk (mac lsp))
 (fasload eaid fas dsk (mac lsp))
 (herald "CORLL" "")
 (load '|corll.fas|)
 (herald "MRSREP" "")
 (load '|mrsrep.fas|)
 (herald "MRS" "")
 (load '|mrs.fas|)
 (herald "MRSS" "")
 (load '|mrss.fas|)
 (herald "MRSPL" "")
 (load '|mrspl.fas|)
 (herald "MRSMETA" "")
 (load '|mrsmeta.fas|)
 (herald "MRSLOGIC" "")
 (load '|mrslogic.fas|)
 (herald "MRSDEMON" "")
 (load '|mrsdemon.fas|)
 (grindef)
 (close infile)
 (inpush -1)
 (gc)
 (suspend '|save sys MRS|)
 (cond ((setq inifile
	      (probef (append '(mrs ini dsk) (ncons (status udir)))))
	(load inifile)))
 (cond (si:ecalledp
	(setq -em:herald- ())
	(em:mail-interface-initialize)))
 (terpri)(princ '|MRS!|)(terpri))